home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / games / cga / batwar.arj / BATWAR4.BAS < prev    next >
BASIC Source File  |  1993-07-22  |  10KB  |  399 lines
  1. DECLARE SUB credits ()
  2. DECLARE SUB Town ()
  3. DECLARE SUB mountain ()
  4. DECLARE SUB SparklePause ()
  5. DECLARE SUB Elliott ()
  6. DECLARE SUB intro ()
  7. intro
  8. Elliott
  9. PRINT "     Now Elliott's troops are coming to get YOU,"; a$; "! What will you do?"
  10. PRINT "Press 1 to run to the village"
  11. PRINT "Press 2 to hide"
  12. PRINT "Press 3 to attack them"
  13. INPUT a
  14. IF a = 3 THEN BEEP
  15. IF a = 1 THEN 6000
  16. IF a = 2 THEN 9000
  17. 9000 PRINT "    You decide to hide. They seem to go right past you. It is "
  18. PRINT "quiet. Soon you hear them again. Without thinking you get up and run."
  19. PRINT "they catch you."
  20. INPUT a
  21. GOTO 90210
  22.  
  23.  
  24. 2001 PRINT "     You don't stand a chance attacking them. You die instantly."
  25. END
  26. 6000 PRINT "    You run as fast as you can to the village. You trip and fall."
  27. PRINT "Now what will you do?"
  28. PRINT "Press 1 to attack them"
  29. PRINT "Press 2 to run some more"
  30. PRINT "Press 3 to stay put"
  31. INPUT a
  32. IF a = 1 THEN 2001
  33. IF a = 2 THEN BEEP
  34. IF a = 3 THEN 10000
  35. PRINT "     You run some more and trip again. This time you hit your head and"
  36. PRINT "don't survive."
  37. END
  38. 10000 PRINT "   You decide to stay put. They don't seem to notice you. You see"
  39. PRINT "nothing. You are to scarred to move. You start to hear the, come and you"
  40. PRINT "SCAM. They catch you. "
  41. PRINT " "
  42. 90210 PRINT "     Elliott escaped magicly. Now he get's to shoot you, personally."
  43. PRINT "     He gives you a last request."
  44. INPUT z$
  45. IF z$ = "HOME" THEN 20000
  46. IF z$ = "home" THEN 20000
  47. IF z$ = "Home" THEN 20000
  48. PRINT "     You say "; z$; ". It doesn't seem to help any. Elliott shoots you with"
  49. PRINT "pleasure. You die."
  50. END
  51. 20000 PRINT "   You wish you were home. That's it, HOME! You've done it now, "
  52. PRINT a$; "! You say home. The jewel on your sword starts to sparkle. Before you"
  53. PRINT "know it you are home. You are around the empty lot. It is the same day."
  54. INPUT a
  55. PRINT "     You walk home. There is no proof that you have been anywhere. You"
  56. PRINT "see no trace of the sword or jewel. "
  57. PRINT "     Seeing nothing to do you decide to head home."
  58. PRINT " "
  59. PRINT "     At home you eat and then go to sleep. You can't seem to get to sleep."
  60. PRINT "You keep wondering what had happened. You wonder and wonder. You can't "
  61. PRINT "remember getting any sleep that night. You lay awake, listening to the"
  62. PRINT "sounds of crickets. You think about Chuck, Laura, and John. What were"
  63. PRINT "they? Were they real?"
  64. INPUT a
  65. PRINT "     The next night you have a dream about Mt. Pokyu."
  66. INPUT a
  67. mountain
  68. PRINT "     You have dreams about Ogausis,"
  69. PRINT " "
  70. PRINT ""
  71. PRINT ""
  72. PRINT ""
  73. PRINT ""
  74. PRINT ""
  75. PRINT ""
  76. PRINT ""
  77.  
  78.  
  79.  
  80.  
  81. PRINT "Kinweke,"
  82. PRINT "and Hojay."
  83. PRINT "You see them "
  84. PRINT "troubled. You don't see any signs of"
  85. PRINT "evil,"
  86. PRINT "but you know that something"
  87. PRINT "is wrong. How will you get there?"
  88. PRINT "How will"
  89. PRINT "you "
  90. PRINT "fix things this time?"
  91. INPUT a
  92. credits
  93. PRINT "     Battle Warrior is an AGSoft production"
  94.  PLAY "C D E"
  95.  PLAY "E C D"
  96. PRINT "    "
  97. PRINT "     Be sure to order Battle Warrior II"
  98. PRINT ""
  99. PRINT "     It will be better than the first with: great sound FX"
  100. PRINT "        "
  101. PRINT "                         and"
  102. PRINT ""
  103. PRINT "     map control"
  104. INPUT a
  105. PRINT "        To"
  106. PRINT "                 Be"
  107. PRINT "                                 Continued"
  108.  
  109.  
  110.  
  111.    
  112.    
  113.    
  114.    
  115.    
  116.    
  117.    
  118.     Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  119.     PLAY Music$
  120.     WHILE PLAY(0) > 5: WEND
  121.  
  122. SUB credits
  123. SCREEN 12
  124. CLS
  125. PLAY "CDE"
  126. PRINT ""
  127. PRINT ""
  128. PRINT ""
  129. PRINT ""
  130. PRINT ""
  131. PRINT ""
  132. PRINT ""
  133. PRINT ""
  134. PRINT ""
  135. PRINT ""
  136. PRINT "     Main                               Writer"
  137. PRINT "     -----------------------------------------"
  138. PRINT ""
  139. PRINT "                 Alexander Golden"
  140. PRINT " "
  141. PRINT " "
  142. PRINT " "
  143. PRINT " "
  144. SOUND 250, 25
  145. PRINT ""
  146. PRINT ""
  147. PRINT ""
  148. PRINT ""
  149. PRINT ""
  150. PRINT ""
  151. PRINT ""
  152. PRINT "     Testers:"
  153. PRINT "     --------"
  154. PLAY "ABC"
  155. PRINT "     Richard"
  156. PRINT ""
  157. PRINT "         &"
  158. PRINT ""
  159. PRINT "                 Alexander"
  160. PRINT " "
  161. PRINT "         Golden"
  162. PRINT ""
  163. SOUND 300, 25
  164. PRINT " "
  165. PRINT ""
  166. PRINT ""
  167. PLAY "bed"
  168. PRINT ""
  169. PRINT ""
  170. PRINT "                 Original Idea:"
  171. PRINT "                 --------------"
  172. PRINT " "
  173. PRINT "                 Alexander Golden"
  174. SOUND 350, 25
  175. PLAY "EGC"
  176. PRINT ""
  177. PRINT ""
  178. PRINT ""
  179. PRINT ""
  180. PLAY "C"
  181. PRINT ""
  182. PRINT ""
  183. PRINT ""
  184. PRINT "         And special thanks to:"
  185. PRINT "         ---------------------"
  186. PRINT "         "
  187. PRINT "         Charles Cole III"
  188. PRINT ""
  189. PRINT "         Laura Cole"
  190. PRINT ""
  191. PRINT "         Elliott Almanza"
  192. PRINT ""
  193. PRINT "   ********   Richard Golden ***********"
  194. PLAY "EEDEC"
  195. PRINT "         "
  196. PRINT "         Travis Caldaro"
  197. PRINT ""
  198. PRINT "         and"
  199. PRINT ""
  200. SOUND 400, 25
  201. PRINT "         a scpecial acknogledment to"
  202. PRINT ""
  203. PRINT "                 Johnathan McClain"
  204. PRINT ""
  205. PRINT "         for solving this puzzle"
  206. INPUT a
  207. PRINT ""
  208. PRINT ""
  209. PRINT "                 E         A          T"
  210. PRINT "                      V         E        L"
  211. PRINT "                         O        R"
  212. PRINT " "
  213. PRINT "     What is it?"
  214. 999 INPUT a$
  215. IF a$ = "Elevator is out of order" THEN 19725
  216. IF a$ = "The elevator is out of order" THEN 19725
  217. IF a$ = "ELEVATOR IS OUT OF ORDER" THEN 19725
  218. IF a$ = "Elevator out of order" THEN 19725
  219. IF a$ = "ELEVATOR OUT OF ORDER" THEN 19725
  220. IF a$ = "elevator out of order" THEN 19725
  221. IF a$ = "the elevator is out of order" THEN 19725
  222. IF a$ = "The Elevator Is Out Of Order" THEN 19725
  223. IF a$ = "Elevator Out Of Order" THEN 19725
  224. 989 PRINT "         Nope. Keep on trying. Anyway if you want to contnine"
  225. PRINT "Battle Warrior's adventure in the land Hkrow then order it."
  226. PRINT ""
  227. PRINT "         To Be Continued........"
  228. INPUT a
  229. GOTO 90000
  230.  
  231. 19725 PRINT "     You got it! Great! ."
  232. INPUT a
  233.  
  234. 90000  PRINT "     Write to me and tell me how you like it (only if you DID like"
  235. PRINT "it... WELL, I do need some CRITICISM. Tell me what you think.  Write to DAVID GOLDEN)"
  236. PRINT
  237. PRINT "And now something for my STUPID brother who isn't smart enough to make"
  238. PRINT "a good Qbasic game (not that any ordanary 12 year old should be able to"
  239. PRINT "but he IS MY brother, and we all know how smart I am (yeah right))."
  240. PRINT "RICHARD GOLDEN"
  241. PLAY "aabbccddbbccaadd"
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251. END SUB
  252.  
  253. SUB Elliott
  254. PRINT "     'You can't destroy me, "; a$; "! I will live forever."
  255. PRINT "     Press 1 to attack"
  256. PRINT "     Press 2 to talk"
  257. INPUT a
  258. IF a = 1 THEN BEEP
  259. IF a = 2 THEN 31415
  260. PRINT "     You attack Elliott. He counter attack and kills you."
  261. END
  262. 31415 PRINT "  What will you say."
  263. INPUT x$
  264. IF x$ = "Look behind you" THEN 12121
  265. IF x$ = "look behind you" THEN 12121
  266. IF x$ = "LOOK BEHIND YOU" THEN 12121
  267. IF x$ = "Look Behind You" THEN 12121
  268. PRINT "     Before you can say anything Elliott kills you."
  269. END
  270. 12121 PRINT "  'Look behind you!' you say. Elliott looks and you push him."
  271. PRINT "He stumbles and falls off the mountain."
  272. END SUB
  273.  
  274. SUB intro
  275. 1 CLS
  276. 2 SCREEN 12
  277. 10 PRINT "                                                              "
  278. 20 PRINT "        AG Software Presents                                 "
  279. 30 PRINT "                                                              "
  280. 40 PRINT "            An Alexander Golden Program                       "
  281. 50 PRINT "                                                              "
  282. 60 PLAY "C D E"
  283. 70 PLAY "E C D"
  284. 80 PRINT "                                                              "
  285. 90 PRINT "**************************************************************"
  286. 100 PRINT " "
  287. 110 PRINT "        Battle                                               "
  288. 120 PRINT "                                                             "
  289. 130 PRINT "                 Warrior                                     "
  290. 140 PRINT "                                                             "
  291. PRINT "         Press any key to continue"
  292. SparklePause
  293. 150 PRINT "    "
  294. PRINT " "
  295. PRINT " "
  296. PRINT ""
  297. PRINT ""
  298. PRINT ""
  299. PRINT ""
  300. PRINT ""
  301. PRINT ""
  302. PRINT ""
  303. PRINT ""
  304. PRINT ""
  305. PRINT ""
  306. PRINT ""
  307. PRINT ""
  308. PRINT ""
  309. PRINT ""
  310. PRINT ""
  311. PRINT ""
  312. PRINT ""
  313. PRINT ""
  314. PRINT ""
  315. PRINT ""
  316. 151 PRINT "Enter your name, Warrior"
  317. 152 INPUT a$
  318. END SUB
  319.  
  320. SUB mountain
  321. CLS
  322. SOUND 1000, 5
  323. PLAY "A"
  324. SOUND 1050, 5
  325. PLAY "b"
  326. SOUND 1100, 5
  327. PLAY "c"
  328. SOUND 200, 5
  329. PLAY "c"
  330. SOUND 2005, 5
  331.  
  332.  
  333. SCREEN 1
  334. LINE (237, 84)-(160, 77)
  335. LINE (230, 84)-(160, 70)
  336. LINE (223, 84)-(160, 63)
  337. LINE (216, 84)-(160, 56)
  338. LINE (209, 84)-(160, 49)
  339. LINE (202, 84)-(160, 42)
  340. LINE (195, 84)-(160, 35)        'Right half Mt. Pokyu
  341. LINE (188, 84)-(160, 28)
  342. LINE (181, 84)-(160, 21)
  343. LINE (174, 84)-(160, 14)
  344. LINE (167, 84)-(160, 7)
  345. LINE (160, 84)-(160, 0)
  346.  
  347. LINE (76, 84)-(160, 77)
  348. LINE (83, 84)-(160, 70)
  349. LINE (90, 84)-(160, 63)
  350. LINE (97, 84)-(160, 56)
  351. LINE (104, 84)-(160, 49)
  352. LINE (111, 84)-(160, 42)      'Left side of mountain
  353. LINE (118, 84)-(160, 35)
  354. LINE (125, 84)-(160, 28)
  355. LINE (132, 84)-(160, 21)
  356. LINE (139, 84)-(160, 14)
  357. LINE (146, 84)-(160, 7)
  358. LINE (153, 84)-(160, 0)
  359.  
  360. END SUB
  361.  
  362. SUB SparklePause
  363. DEFINT A-Z
  364.  
  365. 'SparklePause:
  366. '  Creates flashing border for intro screen
  367.  
  368.    
  369.     a$ = "*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    "
  370.     WHILE INKEY$ <> "": WEND 'Clear keyboard buffer
  371.  
  372.     WHILE INKEY$ = ""
  373.         FOR a = 1 TO 5
  374.             LOCATE 1, 1                             'print horizontal sparkles
  375.             PRINT MID$(a$, a, 80);
  376.             LOCATE 22, 1
  377.             PRINT MID$(a$, 6 - a, 80);
  378.  
  379.             FOR b = 2 TO 21                         'Print Vertical sparkles
  380.                 c = (a + b) MOD 5
  381.                 IF c = 1 THEN
  382.                     
  383.                     PRINT "*";
  384.                     LOCATE 23 - b, 1
  385.                     PRINT "*";
  386.                 ELSE
  387.                     
  388.                     PRINT " ";
  389.                     LOCATE 23 - b, 1
  390.                     PRINT " ";
  391.                 END IF
  392.             NEXT b
  393.         NEXT a
  394.     WEND
  395.  
  396.  
  397. END SUB
  398.  
  399.